#8305211218-吴滔-作业2
## 疑问 来自题目3 为什么使用data.frame()方法和cbind()方法系统自动生成的序号不同，一个是1，一个是[1,]
#题目1####
吴滔="想写小说"
word=35576
.num=11037

#题目2####
age=c(17,18,25,23,31,18,20,21,25,23)
great=factor(x=c('low','high','medium','low','medium','high','medium','high','low','medium'))
tapply(age,great,mean)

#题目3####
salary=sample(3000:5000,10,replace = TRUE)
anothername=c(1:10)
table=data.frame(anothername,age,great,salary)
print(table)
anothertable=cbind(anothername,age,great,salary)
print(anothertable)

#题目4####
num=sample(1:50,10,replace=TRUE)
count=0
for(i in 1:10){count=ifelse(num[i]>10,count+1,count)}
print(num)
print(count)
#选择排序方法
for(i in 1:10)
{
  max=0;location=1#初始最大值和位置设定
  for(j in i:10)
  {
    if(max<num[j])#找到未排序片段的最大值
    {
      max=num[j]
      location=j#记录新的最大值的位置，用于后续交换
    }
  }
  num[location]=num[i]
  num[i]=max
}
print(num)
